﻿Public Class ClassInputPannel

    Friend WithEvents ipSIP As Microsoft.WindowsCE.Forms.InputPanel

    Public Sub New()
        ipSIP = New Microsoft.WindowsCE.Forms.InputPanel()
    End Sub

    Public Sub ShowSIP()
        Try
            ipSIP.Enabled = True
        Catch ex As Exception
        End Try
    End Sub

    Public Sub HideSIP()
        Try
            ipSIP.Enabled = False
        Catch ex As Exception
        End Try

    End Sub

    Public Function ChangeState() As Boolean
        Try
            If ipSIP.Enabled Then
                HideSIP()
            Else
                ShowSIP()
            End If
        Catch ex As Exception
        End Try

    End Function
End Class
